home *** CD-ROM | disk | FTP | other *** search
/ Rockford Magazine / Rockford_Magazine_007_19xx_-_de_Disk_2_of_2_Side_B.d64 / notendef _anl (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  966b  |  25 lines
  1. 1 rem****************   martin roscher
  2. 2 rem**  logiker   **   blattur 31
  3. 3 rem**    am      **   a-6840 goetzis
  4. 4 rem** 3.0kt.1993 **   oesterreich
  5. 5 rem*********************************
  6. 10 print"[147] logiker [165]  *** notendef-anleitung ***  [146]
  7. 20 [153]" 1. oktave mit  okt=x  eingeben
  8. 30 print" 2. poke lob,fnlo(y)                        poke hib,fnhi(y)
  9. 40 [153]"    y=1 bis 12 (1=c,2=c#,3=d,...)
  10. 50 def fnp(n)=int(7493*(2^(okt+(n-10)/12)+.5)
  11. 60 def fnhi(n)=int(fnp(n)/256)
  12. 70 def fnlo(n)=int(fnp(n)-fnhi(n)*256)
  13. 80 sid=54272:lob=sid:hib=sid+1
  14. 90 print" poke laut,x....lautstaerke(0-15)
  15. 100 [153]" poke welle,x...wellenform
  16. 110 laut=sid+24:welle=sid+4:anschl=sid+5:hlt=sid+6
  17. 120 print"poke tvl,x: poke tvh,x
  18. 130 tvl[178]sid[170]2:tvh[178]sid[170]3
  19. 140 [153]" poke anschl,ansl*16+abschwall
  20. 150 print" poke hlt,hlt*16+ausklang
  21. 160 [161] b$:[139] b$[178]""[167] 160
  22. 170 [161]a$:[139]a$[178]""[167] 170
  23. 180 [153]"load wenn sie frequenzen abspielen wollen,   geht dies folgendermassen:
  24. 190 print"   poke lob,fnsl(freq)                     poke hib,fnsh(freq)
  25.